Strict
Import mojo
Import agfx


Class TPoint Extends TPrimitive
	
	
	Field type:Int = -1
		
	Method New()
		Super.New(PRIMITIVE_TYPE_POINT)
	End Method
	
	Method Create:Void(A:TVector2)
		Self.points.Add(A)
		Self.Update()
	End Method
	

	Method Draw:Void()
		Local p1:TVector2		
		p1 = Self.points.Get(0)		
		DrawOval(p1.x-2,p1.y-2,4,4)
	End Method
	
	Method Update:Void(recalc_center:Bool=True,recalc_bbox:Bool=True,recalc_edge:Bool=True) 
		If recalc_center Then Self.CalcCenter()
	End Method
End Class